home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 136 / 136.d81 / b.ls vegetables (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  31 lines
  1. 63000 dv=peek(186):ifdv<8thendv=8
  2. 63010 delay=116:poke53280,0:poke53281,0
  3. 63020 print"[147]";
  4. 63030 fori=8to23:print"[169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";:next
  5. 63040 print"":fori=217to242:pokei,peek(i)or128:next
  6. 63050 poke214,9:print"[145]"tab(2)"[153][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  7. 63060 fori=1to11:printtab(2)"[159]                                    [155][146][223]":next
  8. 63070 printtab(2)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146][155][223]"
  9. 63080 print"[155][169][169][169][169][169][169][169][151][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223]"
  10. 63090 poke214,10:print"[145][159]";
  11. 63100 fori=1to11:reada$
  12. 63110 printspc(20-len(a$)/2)""a$:a$="":next
  13. 63120 delay=delay+1:j=peek(56320)and16:geta$:if(a$="")andj<>0anddel<116then63120
  14. 63130 a$="veggies.bit"
  15. 63140 data"[204][207][193][196][211][212][193][210] [214][197][199][197][212][193][194][204][197][211]","by [202]ames [212]. [202]ones & [202]eff [204]. [202]ones
  16. 63150 [131]"  (len)1995 by (NULL)oftdisk (NULL)ublishing"
  17. 63160 [131]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  18. 63170 data"   [212]his is the copyrighted work of
  19. 63180 [131]"(NULL)(NULL)asc(NULL)str$right$(NULL)(NULL) (NULL)(NULL)peek(NULL)right$(NULL)left$right$(NULL)chr$, (NULL)(NULL)(NULL) intended
  20. 63190 data"for distribution as public domain ","or shareware.  [198]or information on
  21. 63200 [131]"(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) and (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) products,   "
  22. 63210 [131]"call (NULL)(NULL)asc(NULL)str$right$(NULL)(NULL) lenustomer service at"
  23. 63220 [131]"1-800-594-3370 or 1-318-221-8718
  24. 63230 fori=dvtodv:close2:open2,i,2:close2:ifstthen63250
  25. 63240 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then63260
  26. 63250 next:print""a$" not found!":poke186,8:end
  27. 63260 q$=chr$(34):poke646,peek(53281):print"";
  28. 63270 print"p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  29. 63280 print"r[213]:";:poke631,13:poke632,145:poke633,145:poke634,145
  30. 63290 poke635,145:poke636,13:poke198,6
  31.